home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03113_Script_3113 < prev    next >
Text File  |  1983-01-27  |  1KB  |  38 lines
  1. on spegni_su_icone
  2.   global testo_aperto,principio_aperto,video_aperto
  3.   
  4.   if testo_aperto >0 then
  5.     set pgm to the scripttext of cast testo_aperto
  6.     set off1 to offset (" go",pgm)
  7.     if off1>0 then
  8.       set pgm to  ins_frase(char 1 to off1-1 of pgm,char off1 to length(pgm) of pgm,"spegni_canali")
  9.     end if
  10.     set the scripttext of cast testo_aperto to pgm
  11.   end if
  12.   
  13.   
  14.   
  15.   if video_aperto >0 then
  16.     set pgm to the scripttext of cast video_aperto
  17.     set off1 to offset (" go",pgm)
  18.     if off1>0 then
  19.       set pgm to ins_frase(char 1 to off1-1 of pgm,char off1 to length(pgm) of pgm,"spegni_canali")
  20.     end if
  21.     set the scripttext of cast video_aperto to pgm
  22.   end if
  23.   
  24.   
  25.   
  26.   if principio_aperto >0 then
  27.     set pgm to the scripttext of cast principio_aperto
  28.     set off1 to offset (" go",pgm)
  29.     if off1>0 then
  30.       set pgm to  ins_frase(char 1 to off1-1 of pgm,char off1 to length(pgm) of pgm,"spegni_canali")
  31.     end if
  32.     set the scripttext of cast principio_aperto to pgm
  33.   end if
  34.   
  35.   
  36. end
  37.  
  38.